**# Bookmark #1 Setting

*Windows
global root  = "G:/Dropbox/Environmental Injustice/Empirical"
global rawdata = "$root/rawdata"
global workdata = "$root/workdata"
global results = "$root/results"
global outfile = "$root/outfile"

cd "$workdata"

**# Bookmark #2

use "$outfile/Fig. S9.dta",clear

grmap t ///
using "$workdata/provincelevel_map/chinaprov40_coord.dta", id(ID) ///
osize(vvthin ...) ocolor(white ...) ///
clmethod(custom) clbreaks(-1 0.1 1.1) ///
fcolor("150 150 150" "198 219 239") ///
leg(order(3 "Participating Provinces")) ///
graphr(margin(medium)) ///
line(data("$workdata/provincelevel_map/chinaprov40_line_coord.dta") ///
select(keep if inlist(group, 1, 2, 3, 5, 6)) by(group) ///
size(vvthin *1 *0.5 *1.2 *0.5 *0.5) pattern(solid ...) ///
color(white black "0 85 170" "24 188 156" black black)) ///
polygon(data("$workdata/provincelevel_map/chinaprov40_north.dta") fcolor(black) osize(vvthin)) label(data("$workdata/provincelevel_map/chinaprov40_label4.dta") x(X) y(Y) label(ename) length(20) size(*0.6)) 

graph export "$results/Fig. S9.pdf", as(pdf) name("Graph") replace